home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr08
/
myb_203.zip
/
MYB_203.ZIP
/
REPORT2.MRG
< prev
next >
Wrap
Text File
|
1993-05-04
|
3KB
|
87 lines
<*
REPORT2.MRG - Sample merge print file for CONTACT database.
~~~~~~~~~~~
Print a report of all customers which need to be followed-up within
the next 4 weeks.
This report will print four customers per page.
NOTE: The statement below which begins with the hash mark (#) is only
evaluated ONCE! However, since the result of this function is assigned
to a memory variable, "_Date", it may be used later without needing to
re-evaluate the entire function (much faster).
>
<# _Date := CMONTH(DATE()) +" "+ ALLTRIM(STR(DAY(DATE()))) +","+ STR(YEAR(DATE()))
>
< LOCATE( "FOLLOW_UP < DATE()+28 .AND. !EMPTY(FOLLOW_UP)" ) >
XYZ Company Inc.
List of customers to follow up in next 4 weeks
Date of report: < _Date >
--------------------------------------------------------------------------------
< TRIMLINES (
TRIM( TRIM (SAL)+" "+FIRST_NAME) +" "+ LAST_NAME +_LF +
TITLE + _LF +
DEPARTMENT+ _LF +
COMPANY + _LF +
ADDRESS_1 + _LF +
ADDRESS_2 + _LF +
TRIM (CITY)+ ", " + STATE + _LF +
ZIP_CODE + _LF )
>
Phone: < PHONE_NO > Fax: < FAX_NO >
Date of last fax: < LAST_FAX > Last call: < LAST_CALL > Follow up: < FOLLOW_UP >
Rank: < RANK > Current status: <TRIM(STATUS)> <IF(FAX, "", "DON'T FAX!")>
--------------------------------------------
< CONTINUE() ><* skip to next record >
< TRIMLINES (
TRIM( TRIM (SAL)+" "+FIRST_NAME) +" "+ LAST_NAME +_LF +
TITLE + _LF +
DEPARTMENT+ _LF +
COMPANY + _LF +
ADDRESS_1 + _LF +
ADDRESS_2 + _LF +
TRIM (CITY)+ ", " + STATE + _LF +
ZIP_CODE + _LF )
>
Phone: < PHONE_NO > Fax: < FAX_NO >
Date of last fax: < LAST_FAX > Last call: < LAST_CALL > Follow up: < FOLLOW_UP >
Rank: < RANK > Current status: <TRIM(STATUS)> <IF(FAX, "", "DON'T FAX!")>
--------------------------------------------
< CONTINUE() ><* skip to next record >
< TRIMLINES (
TRIM( TRIM (SAL)+" "+FIRST_NAME) +" "+ LAST_NAME +_LF +
TITLE + _LF +
DEPARTMENT+ _LF +
COMPANY + _LF +
ADDRESS_1 + _LF +
ADDRESS_2 + _LF +
TRIM (CITY)+ ", " + STATE + _LF +
ZIP_CODE + _LF )
>
Phone: < PHONE_NO > Fax: < FAX_NO >
Date of last fax: < LAST_FAX > Last call: < LAST_CALL > Follow up: < FOLLOW_UP >
Rank: < RANK > Current status: <TRIM(STATUS)> <IF(FAX, "", "DON'T FAX!")>
--------------------------------------------
< CONTINUE() ><* skip to next record >
< TRIMLINES (
TRIM( TRIM (SAL)+" "+FIRST_NAME) +" "+ LAST_NAME +_LF +
TITLE + _LF +
DEPARTMENT+ _LF +
COMPANY + _LF +
ADDRESS_1 + _LF +
ADDRESS_2 + _LF +
TRIM (CITY)+ ", " + STATE + _LF +
ZIP_CODE + _LF )
>
Phone: < PHONE_NO > Fax: < FAX_NO >
Date of last fax: < LAST_FAX > Last call: < LAST_CALL > Follow up: < FOLLOW_UP >
Rank: < RANK > Current status: <TRIM(STATUS)> <IF(FAX, "", "DON'T FAX!")>
--------------------------------------------